home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase Pro v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Customer.wfm < prev    next >
Encoding:
Text File  |  1997-11-20  |  12.0 KB  |  502 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Customer.wfm - Mugs Sample Application
  4. //
  5. //  Data entry from for Customer table.
  6. //
  7. //  Dependencies: MUGS.CFM
  8. //                MUGS.CC
  9. //                CUSTOMER.DMD
  10. //
  11. //  Visual dBASE Samples Group
  12. //
  13. //  $Revision:   1.9  $
  14. //
  15. //  Copyright (c) 1997, Borland International, Inc. 
  16. //  All rights reserved.
  17. //
  18. //---------------------------------------------------------------
  19. SET TALK OFF
  20. ** END HEADER -- do not remove this line
  21. //
  22. // Generated on 10/23/97
  23. //
  24. parameter bModal
  25. local f
  26. f = new customerForm()
  27. if (bModal)
  28.    f.mdi = false // ensure not MDI
  29.    f.readModal()
  30. else
  31.    f.open()
  32. endif
  33.  
  34. class customerForm of MUGSDATACFORM from "MUGS.CFM"
  35.    set procedure to MUGS.CC additive
  36.    with (this)
  37.       open = class::FORM_OPEN
  38.       readModal = class::FORM_READMODAL
  39.       onOpen = {;this.book1.entryFirst.setFocus()}
  40.       height = 18
  41.       left = 10
  42.       top = 1
  43.       width = 69
  44.       text = "Customer - Data Entry"
  45.    endwith
  46.  
  47.  
  48.    this.DMCUSTOMER = new DATAMODREF()
  49.    this.DMCUSTOMER.parent = this
  50.    with (this.DMCUSTOMER)
  51.       filename = "customer.dmd"
  52.       dataModClass = "CustomerDataModule"
  53.       share = 0
  54.       active = true
  55.       left = -0.1667
  56.       top = -0.0526
  57.    endwith
  58.  
  59.  
  60.    with (this.BOOK1)
  61.       height = 18
  62.       left = 1
  63.       top = 2.5
  64.       width = 67
  65.       metric = 0
  66.    endwith
  67.  
  68.  
  69.    with (this.BOOK1.GRIDROWS)
  70.  
  71.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset
  72.       metric = 0
  73.    endwith
  74.  
  75.  
  76.    this.BOOK1.LABELNAME = new TEXT(this.BOOK1)
  77.    with (this.BOOK1.LABELNAME)
  78.       height = 1
  79.       left = 2
  80.       top = 3.25
  81.       width = 10
  82.       metric = 0
  83.       colorNormal = "BtnText"
  84.       alignVertical = 1
  85.       transparent = true
  86.       fontName = "MS Sans Serif"
  87.       fontSize = 8
  88.       text = "Name:"
  89.    endwith
  90.  
  91.  
  92.    this.BOOK1.ENTRYFIRST = new ENTRYFIELD(this.BOOK1)
  93.    with (this.BOOK1.ENTRYFIRST)
  94.       height = 1
  95.       left = 12.5
  96.       top = 3.25
  97.       width = 15
  98.       metric = 0
  99.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["First Name"]
  100.       colorHighLight = ""
  101.       fontName = "MS Sans Serif"
  102.       fontSize = 8
  103.       validRequired = true
  104.       borderStyle = 7
  105.    endwith
  106.  
  107.  
  108.    this.BOOK1.ENTRYLAST = new ENTRYFIELD(this.BOOK1)
  109.    with (this.BOOK1.ENTRYLAST)
  110.       height = 1
  111.       left = 30
  112.       top = 3.25
  113.       width = 15
  114.       metric = 0
  115.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["Last Name"]
  116.       colorHighLight = ""
  117.       fontName = "MS Sans Serif"
  118.       fontSize = 8
  119.       validRequired = true
  120.       borderStyle = 7
  121.    endwith
  122.  
  123.  
  124.    this.BOOK1.LABELPHONE = new TEXT(this.BOOK1)
  125.    with (this.BOOK1.LABELPHONE)
  126.       height = 1
  127.       left = 2
  128.       top = 4.5
  129.       width = 10
  130.       metric = 0
  131.       alignVertical = 1
  132.       transparent = true
  133.       fontSize = 8
  134.       text = "Phone: "
  135.    endwith
  136.  
  137.  
  138.    this.BOOK1.ENTRYPHONE = new ENTRYFIELD(this.BOOK1)
  139.    with (this.BOOK1.ENTRYPHONE)
  140.       height = 1
  141.       left = 12.5
  142.       top = 4.5
  143.       width = 20
  144.       metric = 0
  145.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["Phone"]
  146.       colorHighLight = ""
  147.       fontName = "MS Sans Serif"
  148.       fontSize = 8
  149.       validRequired = true
  150.       borderStyle = 7
  151.    endwith
  152.  
  153.  
  154.    this.BOOK1.LABELADDRESS = new TEXT(this.BOOK1)
  155.    with (this.BOOK1.LABELADDRESS)
  156.       height = 1
  157.       left = 2
  158.       top = 5.75
  159.       width = 10
  160.       metric = 0
  161.       colorNormal = "BtnText"
  162.       alignVertical = 1
  163.       transparent = true
  164.       fontName = "MS Sans Serif"
  165.       fontSize = 8
  166.       text = "Address:"
  167.    endwith
  168.  
  169.  
  170.    this.BOOK1.ENTRYSTREET1 = new ENTRYFIELD(this.BOOK1)
  171.    with (this.BOOK1.ENTRYSTREET1)
  172.       height = 1
  173.       left = 12.5
  174.       top = 5.75
  175.       width = 45
  176.       metric = 0
  177.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["Street1"]
  178.       colorHighLight = ""
  179.       fontName = "MS Sans Serif"
  180.       fontSize = 8
  181.       validRequired = true
  182.       borderStyle = 7
  183.    endwith
  184.  
  185.  
  186.    this.BOOK1.ENTRYSTREET2 = new ENTRYFIELD(this.BOOK1)
  187.    with (this.BOOK1.ENTRYSTREET2)
  188.       height = 1
  189.       left = 12.5
  190.       top = 7
  191.       width = 45
  192.       metric = 0
  193.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["Street2"]
  194.       colorHighLight = ""
  195.       fontName = "MS Sans Serif"
  196.       fontSize = 8
  197.       validRequired = true
  198.       borderStyle = 7
  199.    endwith
  200.  
  201.  
  202.    this.BOOK1.LABELCITY = new TEXT(this.BOOK1)
  203.    with (this.BOOK1.LABELCITY)
  204.       height = 1
  205.       left = 2
  206.       top = 8.25
  207.       width = 10
  208.       metric = 0
  209.       colorNormal = "BtnText"
  210.       alignVertical = 1
  211.       transparent = true
  212.       fontName = "MS Sans Serif"
  213.       fontSize = 8
  214.       text = "City:"
  215.    endwith
  216.  
  217.  
  218.    this.BOOK1.ENTRYCITY = new ENTRYFIELD(this.BOOK1)
  219.    with (this.BOOK1.ENTRYCITY)
  220.       height = 1
  221.       left = 12.5
  222.       top = 8.25
  223.       width = 23
  224.       metric = 0
  225.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["City"]
  226.       colorHighLight = ""
  227.       fontName = "MS Sans Serif"
  228.       fontSize = 8
  229.       validRequired = true
  230.       borderStyle = 7
  231.    endwith
  232.  
  233.  
  234.    this.BOOK1.LABELSTATE = new TEXT(this.BOOK1)
  235.    with (this.BOOK1.LABELSTATE)
  236.       height = 1
  237.       left = 42
  238.       top = 8.25
  239.       width = 6
  240.       metric = 0
  241.       colorNormal = "BtnText"
  242.       alignVertical = 1
  243.       alignHorizontal = 2
  244.       transparent = true
  245.       fontName = "MS Sans Serif"
  246.       fontSize = 8
  247.       text = "State:"
  248.    endwith
  249.  
  250.  
  251.    this.BOOK1.COMBOSTATE = new COMBOSTATE(this.BOOK1)
  252.    with (this.BOOK1.COMBOSTATE)
  253.       height = 1.0909
  254.       left = 50
  255.       top = 8.2727
  256.       width = 7
  257.       metric = 0
  258.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["State ID"]
  259.       fontName = "MS Sans Serif"
  260.       fontSize = 8
  261.       style = 1
  262.    endwith
  263.  
  264.  
  265.    this.BOOK1.LABELZIP = new TEXT(this.BOOK1)
  266.    with (this.BOOK1.LABELZIP)
  267.       height = 1
  268.       left = 33
  269.       top = 9.5
  270.       width = 15
  271.       metric = 0
  272.       colorNormal = "BtnText"
  273.       alignVertical = 1
  274.       alignHorizontal = 2
  275.       transparent = true
  276.       fontName = "MS Sans Serif"
  277.       fontSize = 8
  278.       text = "Zip/Postal Code:"
  279.    endwith
  280.  
  281.  
  282.    this.BOOK1.ENTRYPOSTAL = new ENTRYFIELD(this.BOOK1)
  283.    with (this.BOOK1.ENTRYPOSTAL)
  284.       height = 1
  285.       left = 50
  286.       top = 9.5
  287.       width = 10
  288.       metric = 0
  289.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["Postal"]
  290.       colorHighLight = ""
  291.       fontName = "MS Sans Serif"
  292.       fontSize = 8
  293.       validRequired = true
  294.       borderStyle = 7
  295.    endwith
  296.  
  297.  
  298.    this.BOOK1.LABELCOUNTRY = new TEXT(this.BOOK1)
  299.    with (this.BOOK1.LABELCOUNTRY)
  300.       height = 1
  301.       left = 2
  302.       top = 9.5
  303.       width = 10
  304.       metric = 0
  305.       colorNormal = "BtnText"
  306.       alignVertical = 1
  307.       transparent = true
  308.       fontSize = 8
  309.       text = "Country:"
  310.    endwith
  311.  
  312.  
  313.    this.BOOK1.COMBOCOUNTRY = new COMBOBOX(this.BOOK1)
  314.    with (this.BOOK1.COMBOCOUNTRY)
  315.       height = 1.0909
  316.       left = 12.5
  317.       top = 9.5
  318.       width = 18
  319.       metric = 0
  320.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["Country ID"]
  321.       fontName = "MS Sans Serif"
  322.       fontSize = 8
  323.       style = 1
  324.    endwith
  325.  
  326.  
  327.    this.BOOK1.LABELCOMMENT = new TEXT(this.BOOK1)
  328.    with (this.BOOK1.LABELCOMMENT)
  329.       height = 1
  330.       left = 2
  331.       top = 10.75
  332.       width = 10
  333.       metric = 0
  334.       colorNormal = "BtnText"
  335.       alignVertical = 1
  336.       transparent = true
  337.       fontName = "MS Sans Serif"
  338.       fontSize = 8
  339.       text = "Comment:"
  340.    endwith
  341.  
  342.  
  343.    this.BOOK1.EDITCOMMENT = new EDITOR(this.BOOK1)
  344.    with (this.BOOK1.EDITCOMMENT)
  345.       height = 3.5
  346.       left = 12.5
  347.       top = 10.75
  348.       width = 52
  349.       metric = 0
  350.       fontName = "MS Sans Serif"
  351.       fontSize = 8
  352.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["Comment"]
  353.       cuaTab = true
  354.    endwith
  355.  
  356.  
  357.    this.BOOK1.BUTTONINVOICE = new PUSHBUTTON(this.BOOK1)
  358.    with (this.BOOK1.BUTTONINVOICE)
  359.       onClick = class::BUTTONINVOICE_ONCLICK
  360.       onOpen = {; this.enabled := ( TYPE("form.app") == "O" )}
  361.       height = 1.2
  362.       left = 47.875
  363.       top = 1.8235
  364.       width = 16
  365.       text = "Open Invoice..."
  366.       metric = 0
  367.       fontName = "MS Sans Serif"
  368.       fontSize = 8
  369.       group = true
  370.       colorNormal = "BtnText/BtnFace"
  371.       value = false
  372.    endwith
  373.  
  374.  
  375.    this.BOOK1.LABELID = new TEXT(this.BOOK1)
  376.    with (this.BOOK1.LABELID)
  377.       height = 1
  378.       left = 2
  379.       top = 2
  380.       width = 10
  381.       metric = 0
  382.       colorNormal = "BtnText"
  383.       alignVertical = 1
  384.       transparent = true
  385.       fontName = "MS Sans Serif"
  386.       fontSize = 8
  387.       text = "ID:"
  388.    endwith
  389.  
  390.  
  391.    this.BOOK1.ENTRYID = new ENTRYFIELD(this.BOOK1)
  392.    with (this.BOOK1.ENTRYID)
  393.       enabled = false
  394.       height = 1
  395.       left = 12.5
  396.       top = 2
  397.       width = 9.5
  398.       metric = 0
  399.       dataLink = parent.parent.DMCUSTOMER.ref.customer1.rowset.fields["Customer ID"]
  400.       picture = "99999999"
  401.       colorHighLight = ""
  402.       fontName = "MS Sans Serif"
  403.       fontSize = 8
  404.       borderStyle = 7
  405.    endwith
  406.  
  407.  
  408.    this.BOOK1.BUTTONOK = new PUSHBUTTON(this.BOOK1)
  409.    with (this.BOOK1.BUTTONOK)
  410.       onClick = class::BUTTONOK_ONCLICK
  411.       visible = false
  412.       height = 1.1818
  413.       left = 52.8571
  414.       top = 1.9545
  415.       width = 12
  416.       text = "OK"
  417.       metric = 0
  418.       fontName = "MS Sans Serif"
  419.       fontSize = 8
  420.       group = true
  421.       colorNormal = "BtnText/BtnFace"
  422.       value = false
  423.    endwith
  424.  
  425.  
  426.    this.BOOK1.BUTTONCANCEL = new PUSHBUTTON(this.BOOK1)
  427.    with (this.BOOK1.BUTTONCANCEL)
  428.       onClick = class::BUTTONCANCEL_ONCLICK
  429.       visible = false
  430.       height = 1.1818
  431.       left = 52.8571
  432.       top = 3.4545
  433.       width = 12
  434.       text = "Cancel"
  435.       metric = 0
  436.       fontName = "MS Sans Serif"
  437.       fontSize = 8
  438.       group = true
  439.       colorNormal = "BtnText/BtnFace"
  440.       value = false
  441.    endwith
  442.  
  443.  
  444.    this.rowset = this.DMCUSTOMER.ref.customer1.rowset
  445.  
  446.    // {Linked Method} form.open
  447.    function Form_open()
  448.       class::prepareForm()
  449.    return ( SUPER::Form_open() )
  450.  
  451.    function prepareForm
  452.       this.title.text := "<h2>Customer</h2>"
  453.    return ( this.book1.ENTRYFIRST.setFocus() )
  454.  
  455.    // {Linked Method} form.book1.buttoncancel.onClick
  456.    function BUTTONCANCEL_OnClick
  457.       this.form.rowset.abandon()
  458.       this.form.newID := null
  459.       this.form.canClose := {||true}
  460.    return ( this.form.close() )
  461.  
  462.    // {Linked Method} form.book1.buttoninvoice.onClick
  463.    function BUTTONINVOICE_OnClick
  464.       local nCustomerID
  465.       nCustomerID = this.form.rowset.fields["Customer ID"].value
  466.    return ( this.form.app.OpenInvoiceOpenDialog( nCustomerID ) )
  467.  
  468.    // {Linked Method} form.book1.buttonok.onClick
  469.    function BUTTONOK_OnClick
  470.       local bClose
  471.       bClose = false
  472.       if ( this.form.rowset.fields["Last Name"].value == null and ;
  473.            this.form.rowset.fields["First Name"].value == null )
  474.          MSGBOX("Cannot save customer with blank first and last name",;
  475.                 "Alert",48)
  476.       else
  477.          this.form.rowset.save()
  478.          this.form.newID := this.form.rowset.fields["Customer ID"].value
  479.          this.form.canClose := {||true}
  480.          bClose := this.form.close()       
  481.       endif
  482.    return ( bClose )
  483.  
  484.    // {Linked Method} form.readModal
  485.    function Form_readModal
  486.       // opened as dialog
  487.       // turn off table view and invoice button.
  488.       // turn on OK and Cancel buttons
  489.       this.newID = null
  490.       this.canClose := {||false}
  491.       with ( this.book1 )
  492.          dataSource := "ARRAY {'Append'}"
  493.          tabstop    := false
  494.          buttonInvoice.visible := false
  495.          buttonOK.visible      := true
  496.          buttonCancel.visible  := true
  497.       endwith
  498.       class::prepareForm()
  499.       super::Form_OnSize( 0, this.width, this.height )
  500.    return ( CUSTOMERFORM::READMODAL() )
  501. endclass
  502.